00010 



XLIST 
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000100 000000 000000 



000101 
000102 
000103 
000104 
000105 
000106 
000107 
000110 



515240 
201100 
554302 
540242 
200046 
202045 
202246 
365100 



254000 

000000 

000000 

000103' 

000001 

000001 

000001 

000103 ' 



00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 

00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 



JWHICH SHOULD BE THE LAST LOADED PROGRAM BEFORE SYSMAK AND DDT 

JTHUS IF IT OVERFLOWS INTO THE USER AREA NO HARM IS DONE 

5 INITIALISE PRIORITY CHANNELS AND SETUP INTERRUPT SERVICE ROUTINE 

XP SYSFIN..-1 JLAST LOC. IN SYSTEM 
NXM=10000 JNON EX-MEM 



CHA 



INTERNAL PATCH 



PATCH: 



BLOCK 100 



;SOME ACS 



JPATCH SPACE 

;C(SYSSI2) SHOULD BE UPDATED AS PATCHES ARE MADE 



T = TAC 

C=TAC1 

INT = DAT INTERRUPT SERVICE ENTRY PO I NT ( USUALLY A CONSO INSTR.) 

CHL=DEVDAT 5THE PLACE WHERE PC IS STORED FOR THAT CHANNEL 

;LINK TO SERVICE ROUTINES 



INTERNAL 
EXTERNAL 
EXTERNAL 

LINKSR: 



DEVI 



LINKSR 
NDEVM1 
DEVINT, JOBSYM 







HRLZI INT, 254000 
MOVEI C» NDEVM1 
HLRZ CHL, DEVINT(C) 
HRR INT, DEVINT(C) 
MOVE T, KCHL) 
MOVEM T, l(INT) 
MOVEM INT, KCHL) 
SOJGE C, DEVI 



=NDEV-1 (DEFINED IN IOINI1) 



;CALLED WITH JSR FROM SYSINI 

;CHAIN INTERUPT SERVICE ROUTINES TOGETH 

;FORM JRST INSTR. 

JNO. OV DEV. SERV. ROUTINES TO CHAIN 

;loc. where pc is stored 

{INTERRUPT SERVICE ROUTINE ENTRY POINT 
MNSERT THIS ROUTINE AT FRONT OF CHAIN 
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00360 








00370 








00380 








00390 


000111 


402000 


000005 


00400 


000112 


700200 


010000 


00410 


000113 


271240 


002000 


00420 


000114 


200105 


000000 


00430 


000115 


700340 


010000 


00440 


000116 


254000 


000113' 


00450 


000117 


275240 


000001 


00460 


000120 


202240 


000037 


00470 


000121 


275240 


000177 


00480 


000122 


574100 


000000 


00490 


000123 


322100 


000143' 


00500 


000124 


213000 


000002 


00510 


000125 


550040 


000122' 


00520 


000126 


271042 


000000 


00530 


000127 


504040 


000002 


00540 


000130 


275241 


000001 


00550 


000131 


542240 


000140' 


00560 


000132 


200100 


000125' 


00570 


000133 


271105 


000001 


00580 


000134 


202100 


000132' 


00590 


000135 


201100 


000134' 


00600 


000136 


202100 


000036 


00610 


000137 


200101 


777777 


00620 


000140 


202101 


000140' 


00630 


000141 


274040 


000551' 


00640 


000142 


325040 


000137' 


00650 



;MOVE SYMBOL TABLE UP IN MEMORY 

JEXEC MUST BE LOADED IN 15K OR LESS IF GOING INTO 16K MACHINE 



STOi: 



SETZM DAT 
CONO APR,N 
ADDI DAT, 2 
MOVE TAC1, 
CONSO APR, 
JRST .-3 
SUBI DAT,1 
MOVEM DAT, 
SUBI DAT, 2 
HLRE TAC1, 
JUMPE TAC1 
MOVNS TAC1 
HRRZ TACJ 
ADDI TAC,( 
HRL TAC.TA 
SUBI DAT,1 
HRRM DAT,S 
MOVE TAC1, 
ADDI TAC1, 
MOVEM TAC1 
MOVEI TAC1 
MOVEM TAC1 
MOVE TAC1, 
MOVEM TAC1 
SUB TAC.CX 
JUMPGE TAC 



XM 
000 
(DAT) 
NXM 



DDTMEM 
00-1 
JOBSYM 
.JRSTI1 

OBSYM 

TAC1) 

CI 

(TAC) 

TOl 

JOBSYM 

KDAT) 

, JOBSYM 

.JOBSYM 

,DDTSYM 

-KTAC) 

, .(TAC) 

WD 1,13 

, .-3 



FIND FIRST NON EX MEM 

CLEAR NON-EX MEM FLAG 

TRY NEXT IK BLOCK 

REFERENCE THIS LOCATION 

NON-EXISTENT? 

NO 

YES, HIGHEST LEGAL LOC 

FOR DDT 

MAKE ROOM FOR DECDUMP 

-LENGTH OF S. T. 

IF NO S. T. TO MOVE UP 

♦LENGTH 

FIRST ADDRESS 

LENGTH+FIRST ADDRESS 

XWD LENGTH, LENGTH+FIRST ADDRESS 

NEW LAST+1-OLD LAST+1 

DIST. TO MOVE 

-N, FIRST ADD. 

FORM NEW S.T. POINTER 



ONCE ONLY CODE - OPERATOR DIALOGUE AND SERVICE ROUT. LINKAGEPAGE 5 
THIS IS ONCE ONLY CODE PLACED AT THE END OF IOINIT 



000143 
000144 
000145 
000146 
000147 



000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 



200040 
251040 
200040 
202040 
254020 



000000 
264000 
264000 
265240 
264000 
265240 
264000 
265240 
264000 
265240 
264000 
265240 
264000 
265240 
264000 
265240 



000552' 

000057 

000147' 

000101' 

000100' 



000000 

000000 

000000 

000000 

000000 

000153' 

000000 

000155' 

000000 

000157' 

000000 

000161' 

000000 

000163' 

000000 

000165' 



00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 



;SETUP LOCATIONS 40 THRU 57 

JRSTIi: MOVE TAC.CXWD LOC40,40] 

BLT TAC57 

MOVE TAC.JRSTI 

MOVEM TAC.LINKSR+1 ;DO ONCE ONLY 
JRSTI : JRST PLINKSR 

EXTERN UUO0. ERROR 

EXTERN CH1,CH2,CH3,CH4,CH5,CH6,CH7 

LOC40: ;UUO PC 

JSR UUO0 ;TO UUO HANDLER 

JSR CHI 

JSP DAT. ERROR 

JSR CH2 

JSP DAT, ERROR 

JSR CH3 

JSP DAT, ERROR 

JSR CH4 

JSP DAT, ERROR 

JSR CH5 

JSP DAT, ERROR 

JSR CH6 

JSP OAT, ERROR 

JSR CH7 

JSP DAT, ERROR 
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000170 000000 000000 

000171 201040 777777* 

000172 202040 000000 

000173 200240 000443' 

000174 200140 000553' 

000175 260140 000000 

000176 201040 000000 

000177 260140 000000 

000200 201040 000474' 

000201 260140 000177' 

000202 554040 000000 

000203 260140 000000 

000204 201040 000554' 

000205 260140 000201' 

000206 550040 000202' 

000207 260140 000203' 

000210 201040 000555' 

000211 260140 000205' 

000212 201040 000000 

000213 260140 000211' 

000214 260140 000175' 

000215 260140 000421* 



00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 



JONCE ONLY CODE - OPERATOR SETUP DIALOGUE 

INTERNAL ONCE 

EXTERNAL CONMES, RADX10 , CRLF , DEC IN, DEC I Nl 

EXTERNAL THSDAT , MAKEND, JOBFF 

EXTERNAL ERNAM, OCTPNT, SYSSI 2, CONF IG, SYSNUM, SYSDAT 



ONCE 





MOVEI TACSYSFIN 
MOVEM TAC.SYSSIZ 
MOVE DAT.LINEP 
MOVE PDP,CXWD ONCEPN, 
PUSHJ PDP.CRLF 
MOVEI TAC. CONFIG 
PUSHJ POP, CONMES 
MOVEI TAC.TSEXEC 
PUSHJ PDP. CONMES 
HLRZ TAC, SYSNUM 
PUSHJ PDP.RADX10 
MOVEI TAC.CASCIZ /./] 
PUSHJ PDP, CONMES 
HRRZ TAC, SYSNUM 
PUSHJ PDP.RADX10 
MOVEI TAC.CASCIZ / /] 
PUSHJ PDP, CONMES 
MOVEI TAC, SYSDAT 
PUSHJ PDP, CONMES 
PUSHJ PDP.CRLF 
PUSHJ PDP.OPOUT 



SET SIZE OF MONITOR 



setup line 
oncepd: 



BYTE POINTER 
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01260 










01270 


J ASK fo 








01280 


JDATE S 








01290 




000216 


402000 


000000 


01300 


DATLOP: 


000217 


200240 


000443' 


01310 




000220 


201040 


000477' 


01320 




000221 


260140 


000213' 


01330 




000222 


260140 


000421' 


01340 




000223 


260140 


000376' 


01350 




000224 


254000 


000216' 


01360 




000225 


260140 


000000 


01370 




000226 


254000 


000216' 


01380 




000227 


332000 


000002 


01390 




000230 


303100 


000014 


01400 




000231 


254000 


000216' 


01410 




000232 


275100 


000001 


01420 




000233 


221100 


000037 


01430 




000234 


272100 


000216' 


01440 




000235 


260140 


000225' 


01450 




000236 


254000 


000216' 


01460 




000237 


332000 


000002 


01470 




000240 


303100 


000037 


01480 




000241 


254000 


000216' 


01490 




000242 


275100 


000001 


01500 




000243 


272100 


000234' 


01510 




000244 


260140 


000235' 


01520 




000245 


254000 


000216' 


01530 




000246 


301100 


000101 


01540 




000247 


303100 


000143 


01550 




000250 


254000 


000216' 


01560 




000251 


275100 


000100 


01570 




000252 


221100 


000564 


01580 




000253 


272100 


000243' 


01590 





JUST CR 

MONTH 

ERROR 



JASK FOR TODAYS DATE AND CONVERT 

RED AS (<Y-64)»12.+M-1)»31.+D-1 



SET2M THSDAT 
MOVE DaT,LINEP 
MOVEI TAC.TODATE 
PUSHJ PDP.CONMES 
PUSHJ PDP.OPOUT 
PUSHJ PDP.GETLIN 
JRST DATLOP 
PUSHJ PDP.DECIN1 
JRST DATLOP 
SKIPE TAC1 
CAILE TACl,tQ12 
JRST DATLOP 
SUBI TAC1.1 
IMULI TACl,tD31 
ADDM TAC1. THSDAT 
PUSHJ PDP.DECIN1 
JRST DATLOP 
SKIPE TAC1 
CAILE TACl»tD31 
JRST DATLOP 
SUBI TAC1.1 
ADDM TAC1, THSDAT 
PUSHJ PDP.DECIN1 
JRST DATLOP 
CAR TACl,tD65 
CAILE TAC1,'D99 
JRST DATLOP 
SUBI TACl,tD64 
IMULI TAC1. 'Dl2»tD31 
ADDM TAC1, THSDAT 



DAY 



YEAR 



;year ZERO 
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01600 










01610 


;get t 








01620 










01630 


EXTERN 








01640 




000254 


402000 


000000 


01650 


TIMLOP 


000255 


200240 


000443' 


01660 




000256 


201040 


000506' 


01670 




000257 


260140 


000221' 


01680 




000260 


260140 


000421' 


01690 




000261 


260140 


000376' 


01700 




000262 


254000 


000254 • 


01710 




000263 


134100 


000001 


01720 




000264 


275100 


000060 


01730 




000265 


331000 


000002 


01740 




000266 


303100 


000002 


01750 




000267 


254000 


000254' 


01760 




000270 


220100 


000556' 


01770 




000271 


272100 


000254' 


01780 




000272 


134100 


000001 


01790 




000273 


275100 


000060 


01800 




000274 


331000 


000002 


01810 




000275 


303100 


000011 


01820 




000276 


254000 


000254' 


01830 




000277 


221100 


645700 


01840 




000300 


272100 


000271' 


01850 




000301 


260140 


000244' 


01860 




000302 


254000 


000254' 


01870 




000303 


303100 


000073 


01880 




000304 


254000 


000254' 


01890 




000305 


221100 


007020 


01900 




000306 


272100 


000300' 


01910 





TIME OF DAY 



TIME 



SETZM TIME 

MOVE DAT.LINEP 

MOVEI TAC.TIMEM 

PUSHJ PDP.CONMES 

PUSHJ PDP.OPOUT 

PUSHJ PDP.GETLIN 

JRST TIMLOP 

ILDB TAC1.TAC 

SUBI TAC1.60 

SKIPL TAC1 

CAILE TAC1.2 

JRST TIMLOP 

IMUL TAC1, [tD60«tD60*tD60*tD103 

ADDM TAC1.TIMF 

ILDB TAC1.TAC 

SUBI TAC1.60 CONVERT TO 

SKIPL TAC1 

CAILE TACl,tD9 

JRST TIMLOP 

IMULI TAC1, tD60»tD60«tD60 

ADDM TAC1.TIME 

PUSHJ PDP.DECIN1 

JRST TIMLOP 

CAILE TACl,tD59 

JRST TIMLOP 

IMULI TAC1. tD60*tD60 

ADDM TAC1.TIME 



JUST A CR 



;CHECK FIRST DIGIT OF HOUR 



BINARY 
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000307 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000340 
000341 
000342 
000343 
000344 



200240 
201040 
260140 
554300 
201040 
261140 
201040 
510206 
554306 
322300 
510106 
316100 
344040 
200340 
260140 
201600 
136600 
201600 
200440 
134100 
271100 
136100 
367600 
201040 
303340 
260140 
260140 
326300 
262140 
260140 



000443' 

000517' 

000257' 

000000 

000004 

000001 

000001 

000000 

000003 

000324' 

000000 

000004 

000317' 

000001 

000207' 

000040 

000005 

000003 

000557' 

000011 

000240 

000005 

000332' 

000560' 

000001 

000311' 

000214' 

000315' 

000002 

000421' 



01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 



JPRINT 10 CONFIGURATION 
EXTERN DEVLST 

MOVE DAT,LINEP 

MOVEI TACIOCONF 

PUSHJ PDP.CONMES 

HLRZ DEVDAT.DFVLST 

MOVEI TAC.ITEM 

PUSH PDP.TAC 
0NCE5: MOVEI TAC.l 

HLLZ ITEM.DEVNAM(DEVDAT) 
0NCE4: HLRZ DEVDAT , DEVSER ( DEVDAT ) 

JUMPE DEVDAT, 0NCE6 

HLLZ TACl.DEVNAM(DEVDAT) 

CAMN TAC1, ITEM 

AOJA TAC0NCE4 
0NCF6: MOVE PROG.TAC JSAVE NO, 

PUSHJ PDP.RADX10 

MOVEI UUO," " 

IDPB UUO, DAT 

MOVEI UUO, 3 

MOVE JDAT, [POINT 6, ITEM] 
0NCE7: ILDB TAC1.JDAT 

ADDI TAC1.240 

IDPB TAC1.DAT 

SOJG UU0,0NCE7 

MOVEI TAC.CASCIZ /'S/D 

CAILE PR0G,1 

PUSHJ PDP.CONMES 

PUSHJ PDP.CRLF 

JUMPN DEVDAT, 0NCE5 

POP PDP.TAC1 

PUSHJ PDP,OPOUT 
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02270 

02280 

02290 ;ask IF SYSMAK IS WANTED 

02300 

000345 200240 000443' 02310 MOVE DAT.LINEP 

000346 201040 000524' 02320 MOVEI TAC.SYSM 

000347 260140 000340' 02330 PUSHJ PDP.CONMES 

000350 260140 000421' 02340 PUSHJ PDP.OPOUT 

000351 260140 000376' 02350 PUSHJ PDP.GETLIN 

000352 254000 000355' 02360 JRST 0NCE2 JNO SYSMAK 

000353 201040 000000 02370 MOVEI TAC.MAKEND ;YES 

000354 202040 000172' 02380 MOVEM TAC.SYSSIZ 

02390 

02400 MS EXEC DDT WANTED? 

02410 

000355 200240 000443' 02420 0NCE2: MOVE DAT.LINEP 

000356 201040 000536' 02430 MOVEI TACSYSDM 

000357 260140 000347' 02440 PUSHJ PDP.CONMES 

000360 260140 000421' 02450 PUSHJ PDP.OPOUT 

000361 260140 000376' 02460 PUSHJ PDP.GETLIN 

000362 254000 000365' 02470 JRST 0NCE3 ;NO 

000363 200040 000000 02480 MOVE TAC.JOBFF ;FIRST FREE LOCATION 

000364 552040 000354' 02490 HRRZM TAC.SYSSIZ 
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02500 

02510 JPRINT OCTAL SIZE OF MONITOR 

02520 

000365 200240 000443' 02530 ONCE3: MOVE DaT,LINEP 

000366 201040 000541' 02540 MOVEI TAC.EXECIS 

000367 260140 000357' 02550 PUSHJ PDP.CONMES 

000370 200040 000364' 02560 MOVE TACSYSSIZ 

000371 260140 000000 02570 PUSHJ PDP.OCTPNT 

000372 201040 000544' 02580 MOVEI TAC, LENGTH 

000373 260140 000367' 02590 PUSHJ PDP.CONMES 

000374 260140 000421' 02600 PUSHJ PDP.OPOUT 

000375 254020 000170' 02610 JRST PONCE 

02620 
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000376 
000377 
000400 
000401 
000402 
000403 
000404 
000405 
000406 
000407 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000420 



200040 
201200 
712340 
254000 
712040 
712140 
136100 
405100 
306100 
254000 
302100 
344200 
712340 
254000 
201100 
712140 
200040 
326200 
263140 



000443' 

000000 

000040 

000400 

000002 

000002 

000001 

000177 

000177 

000000 

000015 

000400 

000020 

000412 

000012 

000002 

000443 

000000 

000000 



02630 
02640 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 



ROUTINE TO READ A LINE FROM OPERATORS CONSOLE 
CALL: PUSHJ PDP,GETLIN 

JUST A CR TYPED IN 

A LINE TYPED IN.TAC SET AS BYTE POINTER 



EXTERN CPOPJ, CP0PJ1 



GETLIN: 
GETi: 



MOVE T 

MOVEI 

CONSO 

JRST . 

DATAI 

DATAO 



IDPB 

ANDI 

CAIN 

JRST 

CAIE 

AOJA 

CONSO 

JRST . 

MOVEI 

DATAO 

MOVE T 

JUMPN 

POPJ P 



ACLINEP 

ITEM,0 

TTY.40 

-1 

TTY.TAC1 

TTY.TAC1 

AC1.TAC 

AC1,177 

AC1,177 

POPJ 

AC1.15 

TEM.GET1 

TTY,20 

-1 

TAC1.12 

TTY.TAC1 

ACLINEP 

ITEM.CP0PJ1 

DP, 



;RUB0UT 
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000421 200040 000443' 

000422 712040 000002 

000423 316040 000005 

000424 263140 000000 

000425 712300 000040 

000426 254000 000434' 

000427 712300 000020 

000430 254000 000427' 

000431 134100 000001 

000432 712140 000002 

000433 254000 000423' 

000434 712300 000020 

000435 254000 000434' 

000436 712140 000561' 

000437 712300 000020 

000440 254000 000437' 

000441 712140 000562' 

000442 263140 000000 

000443 440700 000444' 



02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 
03020 
03030 
03040 
03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
03130 
03140 
03150 
03160 
03170 



{routine to type a line on operator console 
;echo check stops line and returns 
jcall: dat set to end of message 



OPOUT: 



OPOUTl 



0P0UT2: 



LINEP: 
LINBUF: 
ONCEPN=10 
ONCEPD: 



MOVE TAC, LINEP 
DATAI TTY.TAC1 
CAMN TAC, DAT 
POPJ PDP, 
CONSZ TTY.40 
JRST 0P0UT2 
CONSZ TTY.20 
JRST .-1 
ILDB TAC1.TAC 
DATAO TTY.TAC1 
JRST OPOUTl 
CONSZ TTY.20 
JRST .-1 
DATAO TTY.C153 
CONSZ TTY.20 
JRST .-1 
DATAO TTY.C12] 
POPJ PDP, 



POINT 
BLOCK 



7, LINBUF 
20 



ECHO CHECK 



BLOCK ONCEPN 
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03180 

03190 {MESSAGES 

03200 

000474 202505 620246 03210 TSEXEC: ASCIZ / T. S. EXEC-/ 

000475 271010 554212 

000476 415320 000000 

03220 TODATE: ASCIZ / 

000477 064252 454640 03230 TYPE TODAY'S DATE AS ABOVE. 

000500 425012 447610 

000501 406624 751500 

000502 422032 442500 

000503 406464 040604 

000504 476550 527032 

000505 050000 000000 03240 / 

03250 TIMEM: aSCIZ / 

000506 064252 454640 03260 TYPE 4 DIGIT NaVY TIME(0953 IS 9:53 AM). 

000507 425006 420210 

000510 446171 152100 

000511 472032 654500 

000512 522231 542520 

000513 301626 531500 

000514 446464 034564 

000515 325464 040632 

000516 245341 505000 03270 / 

03280 IOCONF: ASCIZ / 

000517 064251 147500 03290 10 CONFIGURATION 

000520 416371 643222 

000521 436532 240650 

000522 446371 606424 03300 / 

000523 000000 000000 

03310 SYSM: ASCIZ / 

000524 064250 447500 03320 DO YOU WANT SYSMAKUYPE Y IF YES,CR IF NO)? 

000525 546372 520256 

000526 406352 420246 

000527 546471 540626 

000530 242513 150212 

000531 202624 044614 

000532 202630 551530 

000533 416444 044614 

000534 202351 724576 

000535 064240 000000 03330 / 

03340 SYSDM: ASCIZ / 

000536 064250 554212 03350 EXEC DDT? 

000537 415010 442250 

000540 374321 200000 03360 / 

03370 EXECIS: ASCIZ / 

000541 064250 554212 03380 EXEC IS / 

000542 415011 151500 

000543 000000 000000 

000544 202370 352202 03390 LENGTH: ASCIZ / OCTAL LOCATIONS LONG. 

000545 461011 447606 

000546 406511 147634 

000547 515011 447634 

000550 435341 505000 03400 / 

03410 

000551 000001 000001 03420 END, 

000552 000150'000040 



000553 000010 000464' 

000554 270000 000000 

000555 200000 000000 

000556 000000 106274 

000557 440600 000004 

000560 236460 000000 

000561 000000 000015 

000562 000000 000012 



THFRE ARE NO ERRORS 
PROGRAM BREAK IS 000563 



ONCE ONLY CODE - 


OPERATOR 


OIA 


SYMBOL TABLE 






A 


000000 


INT 


AC1 


000015 


INT 


AC2 


000016 


INT 


AC3 


000017 


INT 


AL 


000001 


INT 


ASSCON 


400000 


INT 


ASSPRG 


200000 


INT 


B 


000014 


INT 


BUFPNT 


000012 


INT 


BUFWRD 


000013 


INT 


C 


000002 




CHI 


000152' 


EXT 


CH2 


000154' 


EXT 


CH3 


000156' 


EXT 


CH4 


000160' 


EXT 


CH5 


000162' 


EXT 


CH6 


000164' 


EXT 


CH7 


000166' 


EXT 


CHL 


000006 




CLOSB 


002000 


INT 


CLSIN 


000002 


INT 


CLSOUT 


000001 


INT 


CONFIG 


000176' 


EXT 


CONMES 


000373' 


EXT 


CPOPJ 


000407' 


EXT 


CPOPJ1 


000417' 


EXT 


CRLF 


000341' 


EXT 





000017 


INT 


OAT 


000005 


INT 


DATLOP 


000216' 




DCL 


000001 


INT 


DCW 


020000 


INT 


ODI 


000007 


INT 


DDO 


000006 


INT 


DDTMEM 


000037 


INT 


DDTSYM 


000036 


INT 


OECIN 


000000 


EXT 


OECIN1 


000301' 


EXT 


OEN 


000004 


INT 


DEVI 


000103' 




DEVAOR 


000007 


INT 


DEVBUF 


000006 


INT 


DEVCHR 


000001 


INT 


OEVCTR 


000011 


INT 


OEVDAT 


000006 


INT 


OEVIAD 


000007 


INT 


OEVINT 


000104' 


EXT 


OEVIOS 


000002 


INT 


OEVLOG 


000005 


INT 


OEVLST 


000312' 


EXT 


OEVMOD 


000004 


INT 


OEVNAM 


000000 


INT 


OEVOAD 


000010 


INT 


OEVPTR 


000010 


INT 


OEVSER 


000003 


INT 
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ONCE ONLY CODE - 


OPERATOR 


OIA 


SYMROL TABLE 






DGE 


000012 


INT 


DIN 


000003 


INT 


DLK 


000005 


INT 


OOU 


000002 


INT 


OR 


000016 


INT 


ORL 


000000 


INT 


OSI 


000011 


INT 


OSO 


000010 


INT 


OTW 


040000 


INT 


OVAVAL 


000040 


INT 


DVCDR 


100000 


INT 


OVDIR 


000004 


INT 


OVDIRI 


400000 


INT 


DVIN 


000002 


INT 


OVLPT 


040000 


INT 


DVMTA 


000020 


INT 


OVOUT 


000001 


INT 


OVTTY 


000010 


INT 


ENTRB 


020000 


INT 


ERNAM 


000000 


EXT 


ERROR 


000167' 


EXT 


EXECIS 


000541' 




GET1 


000400' 




GETLIN 


000376' 




I 


000010 


INT 


IB 


000013 


TNT 


IBUEB 


200000 


INT 


INITB 


400000 


INT 


INPB 


010000 


INT 


INT 


000005 




10 


000020 


INT 


IOACT 


010000 


INT 


IOBEG 


000002 


INT 


IOBKTL 


040000 


INT 


IOCON 


000040 


INT 


IOCONE 


000517' 




IODEND 


020000 


INT 


IODERR 


200000 


INT 


IODISC 


400000 


INT 


IODONE 


400000 


INT 


IODTER 


100000 


INT 


IOEND 


000040 


INT 


IOEST 


000004 


INT 


IOIMPM 


400000 


INT 


IONRCK 


000100 


INT 


IORDEL 


000100 


INT 


IORET 


000020 


INT 


IOS 


000000 


INT 


IOSTRT 


000010 


INT 


IOUSE 


400000 


INT 


IOW 


000001 


INT 


IOWC 


000020 


INT 


IOWS 


400000 


INT 


ITEM 


000004 


INT 


JBEADR 


000000 


INT 
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ONCE ONLY 


CODE - OPERATOR 


DIALOGUE AND SERVICE 


SYMBOL 


TABLE 






JBFCTR 


000002 


INT 




JBFPTR 


000001 


INT 




JBUF 


000005 


INT 




JDAT 


000011 


INT 




JERR 


002000 


INT 




JIOW 


100000 


INT 




JNA 


004000 


INT 




JORFF 


000363* 


EXT 




JORSYM 


000135' 


FXT 




JRSTI 


000147' 






JRSTI1 


000143' 






LENGTH 


000544' 






LINBUF 


000444' 






LINER 


000443' 






LINKSR 


000100' 


INT 




LOC40 


000150' 






LOOKB 


040000 


INT 




MAKENO 


000353' 


EXT 




MTW 


010000 


INT 




NOFVM1 


000102' 


FXT 




NXM 


010000 






OBUFB 


100000 


INT 




OCTPNT 


000371' 


FXT 




ONCE 


000170' 


INT 




0NCE2 


000355' 






ONCE3 


000365' 






0NCE4 


000317' 






0NCE5 


000315' 






0NCE6 


000324' 






0NCE7 


000332' 






ONCEPD 


000464' 






ONCEPN 


000010 






OPOUT 


000421' 






OPOUT1 


000423' 






0P0UT2 


000434' 






OUTPR 


004000 


INT 




PATCH 


000000' 


INT 




POP 


000003 


INT 




PICHN 


000100 


INT 




PROG 


000007 


INT 




RAOX10 


000325' 


EXT 




RUN 


200000 


INT 




RUNABL 


204000 


INT 




STOl 


000140' 






SYSDAT 


000212' 


EXT 




SYSDM 


000536' 






SYSFIN 


777777777777' 


INT 




SYSM 


000524' 






SYSNUM 


000206' 


FXT 




SYSSIZ 


000370' 


EXT 




T 


000001 






TAC 


000001 


INT 




TAC1 


000002 


INT 




TEM 


000010 


INT 




THSDAT 


000253' 


EXT 
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ONCE ONLY 


CODE - 


OPERATOR 


DIALOGUE 


SYMROL 


TABLE 






TIME 




000306' 


EXT 


TIMEM 




000506' 




TIMLOP 




000254' 




TODATE 




000477' 




TSEXEC 




000474' 




TTYATC 




020000 


INT 


TTYUSE 




010000 


INT 


USRMOD 




010000 


INT 


UUO 




000014 


INT 


uuoei 




000151' 


EXT 
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END OE ASSEMBLY 



